home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n03.arc / SMOOTH.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-01-18  |  9.9 KB  |  135 lines
  1. 100 REM - BASIC PROGRAM TO CREATE SMOOTH.COM  
  2. 110 CLS:PRINT "Creating SMOOTH.COM  ": OPEN "SMOOTH.COM  " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   116
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   116 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "SMOOTH.COM   created successfully": SYSTEM
  17. 260 PRINT: PRINT "SMOOTH.COM   is not valid!": END
  18. 270 DATA E9, 92,  1,  D, 20, 20, 20,  D,  A, 53, 4D, 4F, 4F, 54, 48, 20,   3FA
  19. 280 DATA 31, 2E, 30, 20, 28, 43, 29, 20, 31, 39, 38, 39, 20, 5A, 69, 66,   387
  20. 290 DATA 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73,   64F
  21. 300 DATA 20, 43, 6F, 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E,   491
  22. 310 DATA 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20, 4D,   55B
  23. 320 DATA 65, 66, 66, 6F, 72, 64,  D,  A,  A, 53, 79, 6E, 74, 61, 78, 3A,   558
  24. 330 DATA 20, 20, 53, 4D, 4F, 4F, 54, 48, 20, 66, 69, 6C, 65, 73, 70, 65,   522
  25. 340 DATA 63, 20, 5B, 2F, 57, 5D, 5B, 2F, 53, 6E, 6E, 5D, 5B, 43, 6D, 6D,   54F
  26. 350 DATA 6D, 5D,  D,  A, 2F, 57, 20, 3D, 20, 57, 6F, 72, 64, 73, 74, 61,   4C8
  27. 360 DATA 72, 3B, 20, 2F, 53, 20, 3D, 20, 6E, 6E, 20, 53, 70, 65, 65, 64,   4B9
  28. 370 DATA 3B, 20, 2F, 43, 20, 3D, 20, 6D, 6D, 6D, 20, 43, 6F, 6C, 6F, 72,   4B0
  29. 380 DATA  D,  A,  A, 55, 73, 65, 3A, 20, 18, 19, 2C, 20, 50, 67, 55, 70,   3A1
  30. 390 DATA 2C, 20, 50, 67, 44, 6E, 2C, 20, 48, 6F, 6D, 65, 2C, 20, 45, 6E,   489
  31. 400 DATA 64, 3B, 20, 45, 73, 63, 20, 74, 6F, 20, 45, 78, 69, 74,  D,  A,   4AE
  32. 410 DATA 2B, 20, 3D, 20, 66, 61, 73, 74, 65, 72, 3B, 20, 2D, 20, 3D, 20,   432
  33. 420 DATA 73, 6C, 6F, 77, 65, 72, 3B, 20, 53, 70, 61, 63, 65, 20, 62, 61,   5C6
  34. 430 DATA 72, 20, 3D, 20, 70, 61, 75, 73, 65, 3B, 20, 28, 30, 2D, 39, 29,   44F
  35. 440 DATA 20, 3D, 20, 73, 70, 65, 65, 64,  D,  A,  A, 24, 1A, 4E, 6F, 74,   41E
  36. 450 DATA 20, 65, 6E, 6F, 75, 67, 68, 20, 6D, 65, 6D, 6F, 72, 79, 24, 52,   5D5
  37. 460 DATA 65, 71, 75, 69, 72, 65, 73, 20, 45, 67, 61, 2F, 56, 67, 61, 24,   59C
  38. 470 DATA 46, 69, 6C, 65, 20, 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64, 24, BA,   60B
  39. 480 DATA  3,  0, B0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    B3
  40. 490 DATA  0, FF,  7,  0,  0,  0,  0,  0,  0,  0,  3,  0,  0,  0,  0,  0,   109
  41. 500 DATA  1,  1, 48, 50, 49, 51, 47, 4F, 39,  D,  C, 4E, 4A, 31,  4, 8B,   374
  42. 510 DATA  4, A3,  4, CE,  4,  8,  5, 1D,  5, 4D,  5, 60,  5, B9,  4, C4,   3E4
  43. 520 DATA  4, B9,  4, C4,  4, FC, BB,  0, 20, B4, 4A, CD, 21, BA, 1D,  2,   625
  44. 530 DATA 72, 3E, BC, FE, FF, 8C, C8,  5,  0, 10, A3, 53,  2, B8, 40,  0,   6C2
  45. 540 DATA 8E, C0, B8,  0,  5, CD, 10, B8,  0, 1A, CD, 10, 3C, 1A, 75,  A,   56C
  46. 550 DATA 80, FB,  7, 74, 2B, 80, FB,  8, 74, 26, B4, 12, B3, 10, CD, 10,   6A4
  47. 560 DATA BA, 2F,  2, 80, FB, 10, 74,  8, 26, F6,  6, 87,  0,  8, 74, 10,   527
  48. 570 DATA 52, BA,  7,  1, E8, 53,  5, 5A, E8, 4F,  5, B0,  1, E9, 97,  1,   61C
  49. 580 DATA 26, 8A, 1E, 49,  0, 80, FB,  7, 74, 24, C7,  6, 4F,  2, DA,  3,   52C
  50. 590 DATA C7,  6, 51,  2,  0, B8, 80, FB,  2, 74, 13,  A, DB, 74,  F, C6,   60A
  51. 600 DATA  6, 62,  2, 17, 80, FB,  3, 76,  5, B8,  3,  0, CD, 10, 26, A1,   4D9
  52. 610 DATA 4A,  0, A3, 55,  2, D1, E0, A3, 57,  2, 50, B7,  2, B8, 30, 11,   5F3
  53. 620 DATA CD, 10, D1, E1, 89,  E, 65,  2, FE, C2, 32, F6, 89, 16, 63,  2,   779
  54. 630 DATA 58, F6, E2, A3, 59,  2, BE, 81,  0, AC, 3C,  D, 74, 41, 3C, 2F,   682
  55. 640 DATA 75, F7, C6, 44, FF,  0, AC, 3C,  D, 74, 34, 24, 5F, 3C, 57, 75,   69D
  56. 650 DATA  5, C6,  6, 61,  2, 7F, 3C, 53, 75, 14, E8, A4,  4, 32, FF, A1,   62D
  57. 660 DATA 65,  2, 3B, D8, 76,  2, 8B, D8, 89, 1E, 6A,  2, EB, CB, 3C, 43,   69D
  58. 670 DATA 75, C7, E8, 8C,  4,  A, DB, 74, C0, 88, 1E, 62,  2, EB, BA, BE,   83A
  59. 680 DATA 81,  0, AC, 3C, 20, 77,  4,  A, C0, 75, F7, 8B, D6, 4A, AC, 3C,   6CD
  60. 690 DATA 20, 73, FB, C6, 44, FF,  0, B8,  0, 3D, CD, 21, BA, 40,  2, 73,   6E9
  61. 700 DATA  3, E9, 2C, FF, A3, 6C,  2, E8,  F,  4, 8E,  6, 51,  2, 8B,  E,   5A3
  62. 710 DATA 59,  2, D1, E9, 33, FF, 8A, 26, 62,  2, B0, 20, F3, AB, 8A, 1E,   771
  63. 720 DATA 62,  2, E8, 53,  4, 8B, 16, 63,  2, 86, F2, D0, EE, E8, 53,  4,   71E
  64. 730 DATA 56, BE,  7,  1, B9, 11,  1, AC, B4,  E, CD, 10, E2, F9, 5E, 33,   69E
  65. 740 DATA ED, E8, 3A,  3, 89, 3E, 5D,  2, B4,  1, CD, 16, 74, 2E, 32, E4,   688
  66. 750 DATA CD, 16, 2C, 30, 72,  B, 3C,  9, 77,  7, 32, E4, E8, AE,  0, EB,   616
  67. 760 DATA 1B, 57,  6,  E,  7, 8A, C4, BF, 71,  2, B9,  C,  0, F2, AE,  7,   579
  68. 770 DATA 5F, 75, D5, D1, E1, BB, 93,  2, 2B, D9, FF, 17, E8, CF,  1, EB,   968
  69. 780 DATA C7, 8B, 1E, 6C,  2, B4, 3E, CD, 21, 8B, 1E, 57,  2, 8B, 36, 5B,   5DC
  70. 790 DATA  2, A1, 65,  2, D1, E8, 39,  6, 68,  2, 72,  2,  3, F3, 33, FF,   608
  71. 800 DATA 8B,  E, 59,  2, 2B, CB, D1, E9, 8A, 26, 62,  2, 32, C0, 1E, 8E,   656
  72. 810 DATA 1E, 51,  2, F3, A5, 8B, CB, D1, E9, F3, AB, 1F, 33, DB, 33, C9,   8E0
  73. 820 DATA E8, 79,  2, 32, DB, E8, B0,  3, 8B, 16, 63,  2, 86, F2, FE, CE,   855
  74. 830 DATA FE, CE, E8, AE,  3, 32, C0, B4, 4C, CD, 21, 80, 3E, 67,  2,  1,   76D
  75. 840 DATA 74, 20, E8, 43,  1, 76,  B, 43, E8, 4A,  1, C6,  6, 67,  2,  1,   4ED
  76. 850 DATA EB, 10, C3, 80, 3E, 67,  2,  0, 74,  8, E8, E8,  0, C6,  6, 67,   664
  77. 860 DATA  2,  0, 83, 3E, 6A,  2,  0, 75, E9, A1, 6A,  2, 40, 3B,  6, 65,   480
  78. 870 DATA  2, 76,  7, C3, A1, 6A,  2, 48, 78,  3, A3, 6A,  2, C3, 80, 3E,   5A2
  79. 880 DATA 67,  2,  1, 74, 1B, E8,  0,  1, 76, 2D, 43, E8,  7,  1, E8, F7,   597
  80. 890 DATA  0, 77,  5, E8, 89,  0, 74,  3, E8, FA,  0, E8, 8E,  0, EB, 17,   6BE
  81. 900 DATA E8, E5,  0, 73,  5, E8, 77,  0, 74,  D, 8B, 36, 5F,  2, E8, E4,   713
  82. 910 DATA  0, E8, 78,  0, E8, 82,  0, C3, 80, 3E, 67,  2,  1, 74,  4, E8,   615
  83. 920 DATA 94,  0, C3, E8, 7F,  0, E8, 8D,  0, E8, 6D,  0, C3, C7,  6, 68,   780
  84. 930 DATA  2,  0,  0, 80, 3E, 67,  2,  1, 74,  6, E8, AB,  0, 77,  9, C3,   47A
  85. 940 DATA  B, ED, 74, 18, 8B, 36, 5F,  2, 8B, DD, D1, EB, E8, A6,  0, E8,   840
  86. 950 DATA 3A,  0, 80, 3E, 67,  2,  1, 75,  3, E8, 3D,  0, C3, BB, FF, FF,   67B
  87. 960 DATA 80, 3E, 67,  2,  1, 75,  4, 8B, 36, 5F,  2, E8, 4B,  0, EB, E2,   5C3
  88. 970 DATA B4,  1, CD, 16, 74, FA, 3C, 20, 75,  4, 32, E4, CD, 16, C3, C7,   75E
  89. 980 DATA  6, 68,  2,  0,  0, 8B, DD, D1, EB,  B, DB, C3, E8, 59,  0, 43,   6C1
  90. 990 DATA C6,  6, 70,  2,  1, E8, 66,  0, C3, E8, 4C,  0, 43, E8, 55,  0,   604
  91. 1000 DATA 89, 36, 5F,  2, C3, E8, 40,  0, 43, 8B, 36, 5F,  2, C6,  6, 70,   5AC
  92. 1010 DATA  2,  0, E8, 49,  0, C3, E8, 2F,  0, 53, C6,  6, 70,  2,  0, E8,   586
  93. 1020 DATA 3C,  0, 8B, CB, E8, 21,  0, 58, 76, 14, 43, E8, 27,  0, E8, BB,   672
  94. 1030 DATA FF, E8, E7,  1, 73, 11, A1, 65,  2, 48, A3, 68,  2, C3, 8B, D8,   7D6
  95. 1040 DATA 2B, D9, 74,  3, E8,  E,  0, C3, 8B, 1E, 63,  2, D1, E3, 3B, EB,   71C
  96. 1050 DATA 9C, D1, EB, 9D, C3, 4D, 4D, E8, DC,  0, 4B, 75, F8, C3, 8B, 3E,   95A
  97. 1060 DATA 5B,  2, E8, B6,  1, 72,  6, E8, 34,  1, 4B, 75, F5, C3, A1, 65,   70F
  98. 1070 DATA  2, 8B, 1E, 68,  2, 80, 3E, 67,  2,  1, 74, 36,  3, 1E, 6A,  2,   374
  99. 1080 DATA 3B, D8, 72, 22, E8, 94,  1, 73,  5, 8B, D8, 4B, EB, 18, 2B, D8,   750
  100. 1090 DATA A1, 57,  2,  1,  6, 5B,  2, E8, 77,  0, C6,  6, 70,  2,  1, E8,   4E4
  101. 1100 DATA FC,  0, 89, 3E, 5D,  2, 89, 1E, 68,  2, 8B,  E, 5B,  2, E8, AB,   5BC
  102. 1110 DATA  0, C3, 2B, 1E, 6A,  2, 73, EE,  3, D8,  B, ED, 75,  4, 33, DB,   633
  103. 1120 DATA EB, E4, E8, 17,  0, 8B, 36, 5F,  2, 4D, 4D, E8, 68,  0, 8B, 3E,   6A3
  104. 1130 DATA 5B,  2, C6,  6, 70,  2,  1, E8, DB,  0, EB, CA, A1, 57,  2, 8B,   699
  105. 1140 DATA 3E, 5B,  2,  B, FF, 75, 21, 56, 1E, 33, F6, BF,  0, 78, 8B,  E,   5A8
  106. 1150 DATA 59,  2, 2B, F9, 89, 3E, 5B,  2, D1, E9, 8E, 1E, 51,  2, F3, A5,   6F4
  107. 1160 DATA 1F, 5E,  3, F8, 89, 3E, 5D,  2, 29,  6, 5D,  2, 29,  6, 5B,  2,   3B8
  108. 1170 DATA C3, 8B, 3E, 5D,  2, 81, FF,  0, 78, 72, 1A, 56, 1E, 8B, 36, 5B,   5FF
  109. 1180 DATA  2, 33, FF, 89, 3E, 5B,  2, 8B,  E, 59,  2, D1, E9, 8E, 1E, 51,   603
  110. 1190 DATA  2, F3, A5, 1F, 5E, C3, E8, 18,  0, 2B, F0, 81, FE, 3F,  8, 73,   72E
  111. 1200 DATA  B, 56, 53, E8,  B,  1, 5B, 5E, 81, C6,  0, 78, 89, 36, 5F,  2,   540
  112. 1210 DATA C3, 1E, 8E, 1E, 53,  2, 3E, 8B, 46,  0, 1F, C3, 2E, 8B, 16, 4F,   4F1
  113. 1220 DATA  2, FA, EC, A8,  8, 74, FB, EC, D0, D8, 72, FB, 83, EA,  6, B0,   A2B
  114. 1230 DATA  8, EE, 42, D1, EB, 8A, C3, EE, 4A, BB,  C,  D, E8,  D,  0, 4A,   78C
  115. 1240 DATA BB,  E,  F, 8B,  E, 5D,  2, E8,  2,  0, FB, C3, D1, E9, 8A, C3,   77F
  116. 1250 DATA EE, 42, 8A, C5, EE, 4A, 8A, C7, EE, 42, 8A, C1, EE, C3, 33, D2,   A39
  117. 1260 DATA E8, 12,  0, 1E, 8E, 1E, 53,  2, 3E, 89, 56,  0, 1F, 45, 45, 75,   454
  118. 1270 DATA  3, E9, ED, FC, C3, 8B,  E, 55,  2, 89, 36, 5F,  2, 3B, 36, 6E,   687
  119. 1280 DATA  2, 72, 13, 81, 3E, 6E,  2, 3F, F8, 72, 44, 53, 51, 52, 57, E8,   5D8
  120. 1290 DATA 5B,  0, 5F, 5A, 59, 5B, 8A, 26, 62,  2, AC, 42, 22,  6, 61,  2,   455
  121. 1300 DATA 3C,  D, 74, 2B, 3C,  9, 74, 16, 3C,  A, 74, D1, 80, 3E, 70,  2,   472
  122. 1310 DATA  1, 75,  1, AB, E2, C7, 80, 3C,  D, 75,  2, 46, 42, C3, 51, 49,   5F0
  123. 1320 DATA 83, E1,  7, 41, 51, E8,  7,  0, 58, 59, 2B, C8, 75, AF, C3, B0,   727
  124. 1330 DATA 20, 80, 3E, 70,  2,  1, 75,  2, F3, AB, C3, 3B, 36, 6E,  2, 72,   57C
  125. 1340 DATA  A, 81, 3E, 6E,  2, 3F, F8, 73,  2, F9, C3, F8, C3, 33, C9, BA,   812
  126. 1350 DATA  0, 78, 29, 16, 5F,  2, E8,  E,  0, BE, 3F, 80, BF, 3F,  8, E8,   579
  127. 1360 DATA 1E,  0, B9, FF, FF, F7, DA, 8B, 1E, 6C,  2, B8,  1, 42, CD, 21,   7A6
  128. 1370 DATA C3, B9, FF, FF, BA,  0, 10, E8, ED, FF, BE, 3F,  8, BF, 3F, 80,   99B
  129. 1380 DATA  6,  E,  7, 8B, D6, B9,  0, 3C, F3, A5, 8B, 1E, 6C,  2, B9,  0,   5D9
  130. 1390 DATA 78, B4, 3F, CD, 21, 8B, F2, 8B, D0,  5, 3F, 80, A3, 6E,  2,  7,   70F
  131. 1400 DATA C3, 32, DB, AC, 2C, 30, 72,  E, 3C,  9, 77,  A, 86, C3, B1,  A,   622
  132. 1410 DATA F6, E1,  2, D8, EB, ED, 4E, C3, 32, FF, B1,  4, D2, EB, B4,  B,   9FC
  133. 1420 DATA CD, 10, C3, 32, FF, B4,  2, CD, 10, C3, B4,  9, CD, 21, C3,  0,   795
  134. 1430 DATA 180273
  135.